home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 1.iso / toolbox / documents / ELF / addr1.f next >
Encoding:
Text File  |  1996-11-11  |  240 b   |  13 lines
  1. c file addr1.f 
  2.     program addr1
  3.     integer foo1(1024) 
  4.     integer foo2(1024) 
  5.     common /aa/ foo1,foo2
  6. c address of 1st common aa entry
  7.     write(6,10)%loc(foo1) 
  8. c address of 2nd common aa entry
  9.     write(6,10)%loc(foo2)     
  10. 10     format(x,z) 
  11.     stop 
  12.     end
  13.